home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
somsched.iif
< prev
next >
Wrap
Text File
|
1993-08-23
|
1KB
|
129 lines
inst4.1
! Sets up schedule for SOM layer in a SOM network
!
! n0, n1, f0 corrupted on output
!
=f0 LCRt
?f0 1.0
>blt LCRtOK
=f0 1.0
:LCRtOK
?MpLC 10
>bge MpLCOK
=MpLC 10
:MpLCOK
=n1 MpLC
/n1 4
=n0 n1
! Learn Transition points
=lcta n0
+n0 n1
=lctb n0
+n0 n1
=lctc n0
=lctd MpLC
=lcte 9999999
! Learning Rate
=ArrX 1
=lcft "Alpha"
=lcfa Q1LR
=lcfb lcfa
*lcfb f0
=lcfc lcfb
*lcfc f0
=lcfd lcfc
*lcfd f0
=lcfe 0.0
! Frequency estimation
=ArrX 2
=lcft "Frequency Est."
=lcfa Q1FE
=lcfb lcfa
*lcfb 0.5
=lcfc lcfb
*lcfc 0.5
=lcfd lcfc
*lcfd 0.5
=lcfe 0.0
! Conscience (distance bias)
=ArrX 3
=lcft "Conscience"
=lcfa Q1CF
=lcfb lcfa
*lcfb 0.5
=lcfc lcfb
*lcfc 0.5
=lcfd lcfc
*lcfd 0.5
=lcfe 0.0
! Neighborhood width
=ArrX 4
=lcft "Nghbrhd Width"
=n1 SMsw
-n1 SMew
/n1 3
=lcfa SMsw
=lcfb lcfa
-lcfb n1
=lcfc lcfb
-lcfc n1
=lcfd SMew
=lcfe 0
! Neighborhood shape
=ArrX 5
=lcft "Nghbrhd Shape"
?SMsh 2
>bge alt
=lcfa SMsh
=lcfb SMsh
=lcfc SMsh
=lcfd SMsh
=lcfe SMsh
>br wdone
:alt
=lcfa 1
=lcfb 0
=lcfc 1
=lcfd 0
=lcfe 1
:wdone
! Wrap around
=ArrX 6
=lcft "Wrap Around"
=n0 0
?SMhz 0
>beq nohoriz
+n0 1
:nohoriz
?SMvt 0
>beq novert
+n0 2
:novert
=lcfa n0
=lcfb n0
=lcfc n0
=lcfd n0
=lcfe n0
! Interpolate flag
=ArrX 5
=rcft "Interpolate"
=rcfa SMin
=rcfb SMin
=rcfc SMin
=rcfd SMin
=rcfe SMin
@SLRS
=ArrX 0